Script Create

GCreateEx("s", "CTCP");		//Create Server
GCreateEx("c", "CTCP");		//Create client

:s.Name = "Server";
:s.LocalPort = 8000;
:s.Start();

:c.Name = "Client";
:c.RemoteIP = "127.0.0.1";
:c.RemotePort = 8000;
:c.ConnectMode = 1;			//set to active
:c.Start();


EndScript

Script SendS
(data)
:s.Send(data);
EndScript

Script SendC
(data)
:c.Send(data);
EndScript

Script StopS
:s.Stop();
EndScript

Script StopC
:c.Stop();
EndScript

Script GetDataS
String t;
:s.GetData(t);
PrintLn(t);
EndScript

Script GetDataC
String t;
:c.GetData(t);
PrintLn(t);
EndScript

Script ShowS
PrintLn(:s);
EndScript

Script ShowC
PrintLn(:c);
EndScript